﻿
Imports std
Imports xmlctrl
Imports xhtmlctrl
Imports webctrl

Public Class homepage
    Inherits cacheControlProcessor

    'all storoom list, from configuration
    Public Const _pathidentity As String = network.pathSeperator

    Public Overrides Function pathidentity() As String
        Return _pathidentity
    End Function

    Protected Overrides Function normalRetiredTicks() As Long
        Return npos
    End Function

    Protected Overrides Function processImpl(ByVal context As httpContext, ByRef control As xmlcontrol) As Boolean
        assert(Not context Is Nothing, "context is nothing.")

        Dim page As xhtmlpage = Nothing
        page = context.createControl(New xhtmlpage())
        page.addcsslink(cssrequest.generateCssfileLinkUrl("homepage.css"))
        page.title().text = context.string(stringId.HOMEPAGE_TITLE)

        Dim div As div = Nothing
        div = context.createControl(New div())
        div.text = context.string(stringId.BRANDINFO)
        page.body().addchild(div)

        page.body().addchild(context.createControl(New roomSelector(page)))

        control = page
        Return True
    End Function
End Class
